home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / adaptor.zip / ADAPT.ZIP / adaptor / examples / simple / simple.f < prev   
Text File  |  1993-06-28  |  138b  |  7 lines
  1.       program simple
  2.       real A(100), S
  3.       A = 10
  4.       S = sum(A)
  5.       print *, 'Sum of A = ', S, ' (should be 1000.0) '
  6.       end
  7.